Thank for your help Rod, I have found another code that solve this problem too
http://www.experts-exchange.com/Applications/Email/Lotus_Notes/Q_20670973.html
Const TYPE_HTML = 21
Const ITEM_SIGN = &H0001
Declare Function NSFItemAppend Lib "nnotes" (Byval noteHandle As Long, Byval iFlags As Integer,Byval iName As Lmbcs String,_
Byval iNameLength As Integer, Byval iType As Integer, Byval iValuePointer As Long, Byval iValueLength As Long) As Integer
Declare Function OSMemAlloc Lib "nnotes" (Byval T As Integer, Byval S As Long, hM As Long) As Integer
Declare Function OSMemFree Lib "nnotes" (Byval hM As Long) As Integer
Declare Function OSLockObject Lib "nnotes" (Byval H As Long) As Long
Declare Sub OSUnlockObject Lib "nnotes" (Byval H As Long)
Declare Sub Poke Lib "kernel32" Alias "RtlMoveMemory" (Byval P As Long, Byval D As Lmbcs String, Byval N As Long)
Sub Initialize
Dim s As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim html As String
Dim itemname As String
Dim memPtr As Long
Dim memLen As Long
Dim memhandle As Long
Dim rc As Integer
Set db = s.currentdatabase
Set doc = db.createdocument
doc.form = "Memo"
doc.sendto = "YOUR NAME HERE"
itemname = "Body"
html = |Hi,<br>This stuff really <b>ROCKS</b><br>And here is a <a href="http://www.openntf.org">Check out some stuff</a>|
memLen = Len(html)
rc = OSMemAlloc( 0, memLen, memHandle)
memPtr = OSLockObject(memHandle)
Poke memPtr, html, memLen
rc = NSFItemAppend( doc.handle, ITEM_SIGN , itemname, Len(itemname), TYPE_HTML, memPtr, memLen)
OSUnlockObject memHandle
OSMemFree memHandle
Call doc.send(False)
End Sub
Return to top
. . . . . . . . RE: How can I create a link Hotspot... (~Zelda Zekkibur... 29.Sep.03)
Print this page
